home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / THGB.Dxr / 00045.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  417 b   |  21 lines
  1. on exitFrame
  2.   global game, text, bedtime
  3.   set the volume of sound 1 to 256
  4.   set the volume of sound 2 to 256
  5.   puppetSound("j11")
  6.   updateStage()
  7.   repeat while the soundBusy of 1
  8.     nothing()
  9.   end repeat
  10.   if bedtime then
  11.     if the soundLevel = 0 then
  12.       go("exit", "thatitle")
  13.     else
  14.       set the soundLevel to the soundLevel - 1
  15.       go("X" & text, "THFA")
  16.     end if
  17.   else
  18.     goback()
  19.   end if
  20. end
  21.